Aminet 7/Aminet 7 - August 1995.iso/Aminet/text/hyper/ADtoHT2_1.lha/Source.lha/MyLib.lha/stdio/fclose.c

C/C++ Source or Header | 1995-03-07 | 471 b | 31 lines

#include <stdio.h>
#include <stdlib.h>
#include <errno.h>

#include <proto/exec.h>
#include <proto/dos.h>

/************************************************************************/

int fclose(FILE *Stream)

{
  int Result;

  Result=0;
  Remove((struct Node *)&Stream->Node);
  if (Stream->Flags.Close)
    {
      if (!Close(Stream->Filehandle))
    {
      errno=IoErr();
      Result=EOF;
    }
    }
  if (Stream->Flags.Free)
    {
      free(Stream);
    }
  return Result;
}